home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / wheel < prev    next >
Text File  |  2007-02-28  |  2KB  |  81 lines
  1. 0010 //PROGRAM: WHEEL//
  2. 0020 //
  3. 0030 DIM COLOR$ OF 10, GUESS$ OF 10
  4. 0040 DIM ANSW$ OF 3, LEGAL$ OF 30
  5. 0050 LEGAL$:=".RED.YELLOW.GREEN.BLUE."
  6. 0060 REPEAT 
  7. 0070 BET
  8. 0080 WHEEL
  9. 0090 RESULT
  10. 0100 UNTIL HALT
  11. 0110 //
  12. 0120 PROC WHEEL 
  13. 0130 OUTCOME:=RND(1,15)
  14. 0140 CASE OUTCOME OF
  15. 0150 WHEN 1,3,6,9,12,15
  16. 0160 COLOR$:="RED"
  17. 0170 FACTOR:=1.5
  18. 0180 WHEN 2,5,8,11,14
  19. 0190 COLOR$:="YELLOW"
  20. 0200 FACTOR:=2
  21. 0210 WHEN 4,10,13
  22. 0220 COLOR$:="GREEN"
  23. 0230 FACTOR:=3
  24. 0240 WHEN 7
  25. 0250 COLOR$:="BLUE"
  26. 0260 FACTOR:=9
  27. 0270 ENDCASE 
  28. 0280 DISPLAY(COLOR$)
  29. 0290 ENDPROC WHEEL
  30. 0300 //
  31. 0310 PROC BET 
  32. 0320 WRITEFROM(8)
  33. 0330 PRINT "WHAT COLOR",
  34. 0340 INPUT GUESS$
  35. 0350 WHILE NOT "."+GUESS$+"." IN LEGAL$ DO
  36. 0360 WRITEFROM(8)
  37. 0370 PRINT "ONLY (RED,YELLOW,GREEN,BLUE) ALLOWED!"
  38. 0380 PRINT "NOW, WHAT DO YOU PICK OUT",
  39. 0390 INPUT GUESS$
  40. 0400 ENDWHILE 
  41. 0410 WRITEFROM(8)
  42. 0420 PRINT "HOW MUCH DO YOU WANT TO BET",
  43. 0430 INPUT STAKE
  44. 0440 WHILE STAKE<10 DO
  45. 0450 WRITEFROM(8)
  46. 0460 PRINT "DON'T BE MEAN, MAN!"
  47. 0470 PRINT "NOT LESS THAN 10 PENCE."
  48. 0480 PRINT "MAY WE ASK FOR YOUR BET",
  49. 0490 INPUT STAKE
  50. 0500 ENDWHILE 
  51. 0510 ENDPROC BET
  52. 0520 //
  53. 0530 PROC RESULT 
  54. 0540 WRITEFROM(8)
  55. 0550 IF GUESS$=COLOR$ THEN
  56. 0560 PRINT "HURRAY, YOU WIN!!"
  57. 0570 PRINT "YOU HAVE STAKED ",STAKE," PENCE,"
  58. 0580 PRINT "SO YOU GET ",STAKE*FACTOR,"PENCE."
  59. 0590 ELSE 
  60. 0600 PRINT "SORRY YOU HAVE LOST ",STAKE," PENCE."
  61. 0610 PRINT "BETTER LUCK NEXT TIME."
  62. 0620 ENDIF 
  63. 0630 FOR I:=1 TO 5 DO PRINT  // 5 DOWN
  64. 0640 INPUT "PLAY AGAIN (Y/N)? ": ANSW$
  65. 0650 HALT:=ANSW$="N"
  66. 0660 ENDPROC RESULT
  67. 0670 //
  68. 0680 PROC DISPLAY(C$) 
  69. 0690 FOR I:=1 TO 5 DO
  70. 0700 WRITEFROM(8)
  71. 0710 PRINT "******* ",C$," WINS *******"
  72. 0720 FOR T:=1 TO 100 DO DUMMY:=0 //WAIT
  73. 0730 ENDFOR I
  74. 0740 ENDPROC DISPLAY
  75. 0750 //
  76. 0760 PROC WRITEFROM(LN) CLOSED
  77. 0770 PRINT CHR$(147), //CLEAR SCREEN
  78. 0780 FOR I:=1 TO LN DO PRINT 
  79. 0790 ENDPROC WRITEFROM
  80. 0800 //
  81.